SET PROC TO SOSPRO
SET PROC TO ADDRPRO1
SET PROC TO BOXPROC
STORE ' ' TO AEANAME,AEAADDR,AEACITY,AEACOUN,AEACURR
STORE .F. TO AEAHEAL,AEADECI
DO START
DR1='N:'
DR2='N:'
F1='PATIENT'
F11='NAME'
F12='FNAME'
F2='COMPANY'
FA1='REVENUE1'
***FA2='REVENUEX'
FA2='REVENUEY'
*FA3='REVENUE3'
*FA4='REVENUE4'
*FA5='REVENUE5'
*FA6='REVENUE6'
*FA7='REVENUE7'
FB1='REVNAME1'
***FB2='REVNAMEX'
FB2='REVENUEY'
*FB3='REVNAME3'
*FB4='REVNAME4'
*FB5='REVNAME5'
*FB6='REVNAME6'
*FB7='REVNAME7'
FC1='ACT_PRO1'
FC11='ACT_PRX1'
***FC2='ACT_PROX'
FC2='ACT_PROY'
*FC3='ACT_PRO3'
*FC4='ACT_PRO4'
*FC5='ACT_PRO5'
*FC6='ACT_PRO6'
*FC7='ACT_PRO7'
FD1='ACT_PHA1'
FD11='ACT_PHX1'
***FD2='ACT_PHAX'
FD2='ACT_PHAY'
*FD3='ACT_PHA3'
*FD4='ACT_PHA4'
*FD5='ACT_PHA5'
*FD6='ACT_PHA6'
*FD7='ACT_PHA7'
F100='MAIN_ARE'
F200='DRUGS'
F300='DISPOS'
F400='DOCTORS'
SELE 1
SET COLOR TO BG+/B, W+/N
clea
do addresss
do addrtitl with 'P A T I E N T   H I S T O R Y'
set cons off
set color to gr+/b
@  9,14 say "This programme gives you the possibility to view the"
@ 12,14 say "MEDICAL PROCEDURES performed and the PHARMACEUTICAL "
@ 15,14 say "items (Drugs & Disposable) delivered to any PATIENT "
@ 18,14 say "during HIS/HER NINE LAST VISITS to S. O. S. MEDIKA. "
set color to r+/n
@ 22,25 say "To continue, Type any key ..."
wait ' '
set cons on
ANO='Y'
DO WHILE ANO='Y'
   SET COLOR TO BG+/B, W+/N
   @  7, 1 CLEA TO 23,78
   DO PCON7
ENDDO
clear
RETURN


